IF exists(SELECT * FROM dbo.sysobjects WHERE name='WEB_llnAdministratie' AND xtype='P') 
BEGIN
	DROP PROCEDURE WEB_llnAdministratie
END
GO

CREATE        procedure WEB_llnAdministratie
(@iNr char(7))
as
begin
set nocount on
create table #hulptabel(tekst varchar(8000))

--De hoofding
insert into #hulptabel(tekst)
values('<?xml version="1.0"  encoding="ISO-8859-1" ?>')
insert into #hulptabel(tekst)
select '<leerling iNr="' + @iNr + '" ' +
	'schoolNr="' + isnull(l.schoolNummer,'') + '" ' +
	'stamboekNr="' +  isnull(l.stamNr,'') + '">' + 
	'<voornaam>' +  dbo.WEB_XML(isnull(l.voornaam,'')) + '</voornaam>' +
	'<achternaam>' +  dbo.WEB_XML(isnull(l.achternaam,'')) + '</achternaam>' +
	'<klas>' +  dbo.WEB_XML(isnull(l.klas,'')) + '</klas>' +
	'<klasNr>' +  isnull(convert(varchar(5),l.klasNr),'') + '</klasNr>'
 from leerlingen as l
where inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
select '<adres><straat>' + dbo.WEB_XML(isnull(a.straat,'')) + ' ' + dbo.WEB_XML(isnull(nummer,'')) +
		' ' + dbo.WEB_XML(isnull(busnummer,'')) + '</straat>'+
  	'<gemeente>' + isnull(a.postcode,'') + ' ' + dbo.WEB_XML(isnull(gemeente,'')) + '</gemeente> ' +
	'</adres>' +
	'<telefoon>' + dbo.WEB_XML(isnull(a.telefoon,'')) + '</telefoon>' +
	'<email>' + dbo.WEB_XML(isnull(a.email,'')) + '</email>' +
	'<emailLeerling>' + dbo.WEB_XML(isnull(a.emailLeerling,'')) + '</emailLeerling>' +
	'<geboorteplaats>' + dbo.WEB_XML(isnull(a.geboorteplaats,'')) + '</geboorteplaats>' +
	'<geboortedatum>' + isnull(convert(varchar(50),a.geboortedatum,103),'') + '</geboortedatum>' +
	'<nationaliteit>' + dbo.WEB_XML(isnull(a.nationaliteit,'')) + '</nationaliteit>' +
	'<geslacht>' + dbo.WEB_XML(isnull(a.geslacht,'')) + '</geslacht>' +
	'<GSMouders>' + dbo.WEB_XML(isnull(a.GSMouders,'')) + '</GSMouders>'
from administratievegegevens as a
where a.inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
select '<gezinstoestand>' + dbo.WEB_XML(isnull(f.gezinstoestand,'')) + '</gezinstoestand>' +
	'<vader><naam>' + dbo.WEB_XML(isnull(voornaamVader,'')) + ' ' + dbo.WEB_XML(isnull(naamVader,'')) + '</naam>' +
  	'<beroep>' + dbo.WEB_XML(isnull(f.beroepVader,'')) + '</beroep></vader>' +
	'<moeder><naam>' + dbo.WEB_XML(isnull(voornaamMoeder,'')) + ' ' + dbo.WEB_XML(isnull(naamMoeder,'')) + '</naam>' +
  	'<beroep>' + dbo.WEB_XML(isnull(f.beroepMoeder,'')) + '</beroep></moeder>' +
	'<broers>' + isnull(convert(varchar(2),f.aantalBroers),'0') + '</broers>' +
	'<zussen>' + isnull(convert(varchar(2),f.aantalZussen),'0') + '</zussen>' +
	'<opRita>' + isnull(convert(varchar(2),f.aantalopStRita),'0') + '</opRita>' +
	'<huistaal>' + dbo.WEB_XML(isnull(f.huistaal,'Nederlands')) + '</huistaal>' +
	'<huisarts><naam>' + dbo.WEB_XML(isnull(huisarts,'')) + '</naam>' +
 	'<tel>' + dbo.WEB_XML(isnull(telefoonHuisarts,'')) + '</tel></huisarts>'
from familialeGegevens as f
where f.inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
values('<noodnummers>')

insert into #hulptabel(tekst)
select '<tel><ref>' + dbo.WEB_XML(isnull(omschrijving,'')) 
	+ '</ref><nr>' + dbo.WEB_XML(isnull(noodtelefoon,'')) + '</nr></tel>'
from noodnummers
where inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
values('</noodnummers>')

insert into #hulptabel(tekst)
select '<fietsnummer>' + dbo.WEB_XML(isnull(fietsNr,'')) + '</fietsnummer>'+
	'<refter>' + dbo.WEB_XML(isnull(refter,'')) + '</refter>'
from refterFiets
where inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
select '<aanwezigStudie>' 
		  + case when studieMa = 1 then 'Ma ' else '' end 	
		  + case when studieDi = 1 then 'Di ' else '' end 	
		  + case when studieDo = 1 then 'Do ' else '' end 
		  + '</aanwezigStudie>' 
		  + '<aanwezigRefter>' 
	          + case when refterMa = 1 then 'Ma ' else '' end 	
		  + case when refterDi = 1 then 'Di ' else '' end 	
		  + case when refterDo = 1 then 'Do ' else '' end 
		  + case when refterVr = 1 then 'Vr ' else '' end 
		  + '</aanwezigRefter>'
from refterStudie
where inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
select case when len(convert(varchar(8000),noodbericht)) > 0 then
	'<noodbericht>'+ dbo.WEB_XML(convert(varchar(8000),noodbericht)) + '</noodbericht>' end
from noodBericht
where inschrijvingsNr = @iNr

insert into #hulptabel(tekst)
values('</leerling>')


select * from #hulptabel
end